home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / news / thor / rexx / fse / coolify.fse < prev    next >
Text File  |  1998-05-24  |  611b  |  41 lines
  1. /*
  2. ** $VER: Coolify.fse 1.0 (3.12.94)
  3. ** Coolify text block - by Troels Walsted Hansen
  4. */
  5.  
  6. options results
  7.  
  8. YPOS
  9. currline = result
  10. XPOS
  11. currcolumn = result
  12. MSGLENGTH
  13. lastline = result
  14.  
  15. call open(tfh, "t:UncoolTempFile", W)
  16.  
  17. do i=currline to lastline
  18.     SETPOS 1 i
  19.     GETLINE
  20.     line = result
  21.  
  22.     if(line ~= "") then do
  23.         DELETELINES
  24.         i = i-1
  25.     end
  26.     else break
  27.  
  28.     call writeln(tfh, line)
  29. end
  30.  
  31. call close(tfh)
  32.  
  33. address command "Coolify >nil: t:UncoolTempFile t:CoolTempFile"
  34. call delete("t:UncoolTempFile")
  35.  
  36. SETPOS currcolumn currline
  37. INCLUDEFILE "t:CoolTempFile"
  38. call delete("t:CoolTempFile")
  39.  
  40. SETPOS currcolumn currline
  41.